Imports System.Data.SqlClient
Imports Microsoft.ApplicationBlocks.Data.SqlHelper
Public Class SolicitudesDeMP
    Public Function ObtenerPendientes()
        Dim DS As New DataSet
        DS = ExecuteDataset(My.Settings.MiCadena, "SoliciudesDeMPObtenerPendientes")
        Return DS
    End Function

    Public Function Insertar(ByVal Responsable As Integer, ByVal OT As Integer, ByVal Cantidad As Integer, ByVal SiloMP As Integer)
        Dim CodigoSMP As Integer
        CodigoSMP = ExecuteScalar(My.Settings.MiCadena, CommandType.StoredProcedure, "SolicitudesDeMPInsertar", New SqlParameter("@Responsable", Responsable), New SqlParameter("@OT", OT), New SqlParameter("@Cantidad", Cantidad), New SqlParameter("@SiloMP", SiloMP))
        Return CodigoSMP
    End Function

End Class
